home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 4 / BBS in a Box - Macintosh - Volume IV (January 1992) (BBS in a Box).iso / Files / Hyper / S-Sh / Shell Stack 3.0.cpt / Shell Stack 3.0 / Shell Stack 3.0 / card_4624.txt < prev    next >
Encoding:
Text File  |  1987-12-20  |  7.4 KB  |  331 lines
  1. -- card: 4624 from stack: in.0
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 2799
  5. -- name: 
  6.  
  7.  
  8. -- part 2 (field)
  9. -- low flags: 01
  10. -- high flags: 0000
  11. -- rect: left=131 top=70 right=99 bottom=364
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 2
  16. -- text size: 24
  17. -- style flags: 0
  18. -- line height: 32
  19. -- part name: Shell Stack 2.0
  20.  
  21.  
  22. -- part 3 (field)
  23. -- low flags: 00
  24. -- high flags: 0004
  25. -- rect: left=17 top=278 right=295 bottom=321
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 0
  29. -- font id: 4
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: ResName
  34.  
  35.  
  36. -- part 6 (field)
  37. -- low flags: 01
  38. -- high flags: 0000
  39. -- rect: left=17 top=259 right=276 bottom=166
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 0 / 0
  42. -- text alignment: 0
  43. -- font id: 4
  44. -- text size: 12
  45. -- style flags: 0
  46. -- line height: 16
  47. -- part name: ResNameDes
  48.  
  49.  
  50. -- part 8 (field)
  51. -- low flags: 00
  52. -- high flags: 0004
  53. -- rect: left=17 top=239 right=256 bottom=59
  54. -- title width / last selected line: 0
  55. -- icon id / first selected line: 0 / 0
  56. -- text alignment: 0
  57. -- font id: 4
  58. -- text size: 12
  59. -- style flags: 0
  60. -- line height: 16
  61. -- part name: ResType
  62.  
  63.  
  64. -- part 9 (field)
  65. -- low flags: 01
  66. -- high flags: 0000
  67. -- rect: left=17 top=219 right=236 bottom=166
  68. -- title width / last selected line: 0
  69. -- icon id / first selected line: 0 / 0
  70. -- text alignment: 0
  71. -- font id: 4
  72. -- text size: 12
  73. -- style flags: 0
  74. -- line height: 16
  75. -- part name: ResTypeDes
  76.  
  77.  
  78. -- part 10 (button)
  79. -- low flags: 00
  80. -- high flags: 8003
  81. -- rect: left=200 top=99 right=149 bottom=294
  82. -- title width / last selected line: 0
  83. -- icon id / first selected line: 27056 / 27056
  84. -- text alignment: 1
  85. -- font id: 0
  86. -- text size: 12
  87. -- style flags: 0
  88. -- line height: 16
  89. -- part name: Copy_Resource
  90. ----- HyperTalk script -----
  91. on mouseUp
  92.   if card field "To" is empty then
  93.     put "Please Enter ALL Data" into card field "Report"
  94.     play "Boing"
  95.     flash 4
  96.   end if
  97.   if card field "From" is empty then
  98.     put "Please Enter ALL Data" into card field "Report"
  99.     play "Boing"
  100.     flash 4
  101.     if card field "ResName" is empty then
  102.     end if
  103.     put "Please Enter ALL Data" into card field "Report"
  104.     play "Boing"
  105.     flash 4
  106.   end if
  107.   if card field "ResType" is empty then
  108.     put "Please Enter ALL Data" into card field "Report"
  109.     play "Boing"
  110.     flash 4
  111.   else ResCopy card field "From",card field "To",card field "ResType",card field "ResName"
  112.   get the result
  113.   if it is "ERR1" then
  114.     put "Incorrect Information!!!" into card field "Report"
  115.   end if
  116.   if it is "ERR2" then
  117.     put "Source file could not be opened!!!" into card field "Report"
  118.   end if
  119.   if it is "ERR3" then
  120.     put "Destination file could not be created!!!" into card field "Report"
  121.   end if
  122.   if it is "ERR4" then
  123.     put "Resource was not found!!!" into card field "Report"
  124.   else
  125.     put "Copy Completed‚Ķ" into card field "Report"
  126.   end if
  127.   flash 2
  128. end mouseUp
  129.  
  130.  
  131.  
  132. -- part 11 (field)
  133. -- low flags: 01
  134. -- high flags: 0000
  135. -- rect: left=17 top=133 right=150 bottom=166
  136. -- title width / last selected line: 0
  137. -- icon id / first selected line: 0 / 0
  138. -- text alignment: 0
  139. -- font id: 4
  140. -- text size: 12
  141. -- style flags: 0
  142. -- line height: 16
  143. -- part name: SourceDes
  144.  
  145.  
  146. -- part 12 (field)
  147. -- low flags: 00
  148. -- high flags: 0004
  149. -- rect: left=17 top=199 right=216 bottom=319
  150. -- title width / last selected line: 0
  151. -- icon id / first selected line: 0 / 0
  152. -- text alignment: 0
  153. -- font id: 4
  154. -- text size: 12
  155. -- style flags: 0
  156. -- line height: 16
  157. -- part name: To
  158.  
  159.  
  160. -- part 13 (field)
  161. -- low flags: 00
  162. -- high flags: 0004
  163. -- rect: left=17 top=155 right=172 bottom=319
  164. -- title width / last selected line: 0
  165. -- icon id / first selected line: 0 / 0
  166. -- text alignment: 0
  167. -- font id: 4
  168. -- text size: 12
  169. -- style flags: 0
  170. -- line height: 16
  171. -- part name: From
  172.  
  173.  
  174. -- part 14 (field)
  175. -- low flags: 01
  176. -- high flags: 0000
  177. -- rect: left=17 top=177 right=194 bottom=211
  178. -- title width / last selected line: 0
  179. -- icon id / first selected line: 0 / 0
  180. -- text alignment: 0
  181. -- font id: 4
  182. -- text size: 12
  183. -- style flags: 0
  184. -- line height: 16
  185. -- part name: DestinationRes
  186.  
  187.  
  188. -- part 15 (button)
  189. -- low flags: 00
  190. -- high flags: A003
  191. -- rect: left=360 top=155 right=172 bottom=462
  192. -- title width / last selected line: 0
  193. -- icon id / first selected line: 0 / 0
  194. -- text alignment: 1
  195. -- font id: 0
  196. -- text size: 12
  197. -- style flags: 0
  198. -- line height: 16
  199. -- part name: Get PathName
  200. ----- HyperTalk script -----
  201. on mouseUp
  202.   put FileName() into card field "From"
  203. end mouseUp
  204.  
  205.  
  206.  
  207. -- part 16 (button)
  208. -- low flags: 00
  209. -- high flags: A003
  210. -- rect: left=360 top=198 right=215 bottom=462
  211. -- title width / last selected line: 0
  212. -- icon id / first selected line: 0 / 0
  213. -- text alignment: 1
  214. -- font id: 0
  215. -- text size: 12
  216. -- style flags: 0
  217. -- line height: 16
  218. -- part name: Get PathName
  219. ----- HyperTalk script -----
  220. on mouseUp
  221.   put FileName("STAK") into card field "To"
  222.  
  223. end mouseUp
  224.  
  225.  
  226.  
  227. -- part 17 (field)
  228. -- low flags: 01
  229. -- high flags: 0007
  230. -- rect: left=331 top=220 right=294 bottom=480
  231. -- title width / last selected line: 0
  232. -- icon id / first selected line: 0 / 0
  233. -- text alignment: 0
  234. -- font id: 4
  235. -- text size: 9
  236. -- style flags: 0
  237. -- line height: 12
  238. -- part name: ResCopyAbout
  239.  
  240.  
  241. -- part 18 (field)
  242. -- low flags: 01
  243. -- high flags: 0001
  244. -- rect: left=304 top=133 right=147 bottom=480
  245. -- title width / last selected line: 0
  246. -- icon id / first selected line: 0 / 0
  247. -- text alignment: 0
  248. -- font id: 3
  249. -- text size: 9
  250. -- style flags: 0
  251. -- line height: 12
  252. -- part name: Report
  253. ----- HyperTalk script -----
  254. On MouseUp
  255.   put "" into card field "Report"
  256. end mouseUp
  257.  
  258.  
  259.  
  260. -- part 19 (field)
  261. -- low flags: 01
  262. -- high flags: 0000
  263. -- rect: left=304 top=117 right=131 bottom=369
  264. -- title width / last selected line: 0
  265. -- icon id / first selected line: 0 / 0
  266. -- text alignment: 0
  267. -- font id: 3
  268. -- text size: 9
  269. -- style flags: 256
  270. -- line height: 12
  271. -- part name: Report.Des
  272.  
  273.  
  274. -- part contents for background part 45
  275. ----- text -----
  276. Total Cards:
  277.  
  278. -- part contents for background part 3
  279. ----- text -----
  280. 7:39 PM
  281.  
  282. -- part contents for background part 2
  283. ----- text -----
  284. Saturday, December 19, 1987
  285.  
  286. -- part contents for background part 1
  287. ----- text -----
  288. Card:
  289.  
  290. -- part contents for background part 5
  291. ----- text -----
  292. 7
  293.  
  294. -- part contents for background part 43
  295. ----- text -----
  296. 8
  297.  
  298. -- part contents for background part 42
  299. ----- text -----
  300. Scripting
  301.  
  302. -- part contents for card part 2
  303. ----- text -----
  304. Copy Resource
  305.  
  306. -- part contents for card part 6
  307. ----- text -----
  308. Resource Name:
  309.  
  310. -- part contents for card part 9
  311. ----- text -----
  312. Resource Type:
  313.  
  314. -- part contents for card part 11
  315. ----- text -----
  316. Source File PathName:
  317.  
  318. -- part contents for card part 14
  319. ----- text -----
  320. Destination File PathName:
  321.  
  322. -- part contents for card part 17
  323. ----- text -----
  324.  
  325.  This card will copy Resources for you from one file (Can be any type.) to a HyperCard stack. You must know the resource's type (Its a four letter exspression like 
  326. "XCMD" or "PICT" and it name. You need not The source file pathname is the pathname of the file you want to copy the resource FROM, this file is not changed. The destination file pathname is the file in which you want to copy the resocurce INTO. These two pathnames can be easily entered by clicking the "Get PathName" buttons next to them, they will use the standard Mac file section dialog box to promtp you for a file. A full pathname might not fit into the field window but don't worry its there._Trust me‚Ķ
  327.  
  328.  
  329. -- part contents for card part 19
  330. ----- text -----
  331. Status: